﻿
Public Class WcTagValue
    Private lid As Integer
    Private lname As String

    Public Property ValueId As Integer
        Get
            Return lid
        End Get
        Set(ByVal value As Integer)
            lid = value
        End Set
    End Property

    Public Property ValueName As String
        Get
            Return lname
        End Get
        Set(ByVal value As String)
            lname = value
        End Set
    End Property
    Public Sub New(ByVal id As Integer, ByVal name As String)
        ValueId = id
        ValueName = name
    End Sub
End Class
